
#Region "Summary"
''' -----------------------------------------------------------------------------
''' Project	 : PTT.StationsTracking.Data
''' Class	 : StationsTracking.Data.QueryInvReserveDataCarDriver
''' 
''' -----------------------------------------------------------------------------
''' <summary>
''' Query Result Single Business Entity
''' </summary>
''' <remarks>
''' Sample of business entity coding
''' </remarks>
''' <history>
''' 	[Generater by Nok]	7/4/2549 15:54:06	Created
''' </history>
''' -----------------------------------------------------------------------------
#End Region

#Region ".NET Framework Class Import"
Imports System
Imports System.Xml.Serialization
Imports System.IO
Imports System.Runtime.Serialization
Imports System.Runtime.Serialization.Formatters.Binary
Imports System.Collections
#End Region

<Serializable()> _
Public Class QueryInvReserveDataCarDriver
#Region "Internal member variables"
    Private _BdNumber As String
    Private _StartMile As String
    Private _StartTime As String
    Private _StopMile As String
    Private _StopTime As String
    Private _FuelAmount As Double
    Private _EstiMate As Int32
    Private _WorkCost As Double
    Private _ReserveId As String
    Private _CarIdApprove As Int32
    Private _CarId As Int32
    Private _DriverCodeApprove As String
    Private _DriverCode As String
#End Region

    Public Sub New()
        _BdNumber = Nothing
        _StartMile = Nothing
        _StartTime = Nothing
        _StopMile = Nothing
        _StopTime = Nothing
        _FuelAmount = Nothing
        _EstiMate = Nothing
        _WorkCost = Nothing
        _ReserveId = Nothing
        _CarIdApprove = Nothing
        _CarId = Nothing
        _DriverCodeApprove = Nothing
        _DriverCode = Nothing
    End Sub

    Public Sub New(ByVal BdNumber As String, _
       ByVal StartMile As String, _
       ByVal StartTime As String, _
       ByVal StopMile As String, _
       ByVal StopTime As String, _
       ByVal FuelAmount As Double, _
       ByVal EstiMate As Int32, _
       ByVal WorkCost As Double, _
       ByVal ReserveId As String, _
       ByVal CarIdApprove As Int32, _
       ByVal CarId As Int32, _
       ByVal DriverCodeApprove As String, _
       ByVal DriverCode As String)
        _BdNumber = BdNumber
        _StartMile = StartMile
        _StartTime = StartTime
        _StopMile = StopMile
        _StopTime = StopTime
        _FuelAmount = FuelAmount
        _EstiMate = EstiMate
        _WorkCost = WorkCost
        _ReserveId = ReserveId
        _CarIdApprove = CarIdApprove
        _CarId = CarId
        _DriverCodeApprove = DriverCodeApprove
        _DriverCode = DriverCode
    End Sub

#Region "Property"

    Public Property BdNumber() As String
        Get
            Return _BdNumber
        End Get
        Set(ByVal value As String)
            _BdNumber = value
        End Set
    End Property


    Public Property StartMile() As String
        Get
            Return _StartMile
        End Get
        Set(ByVal value As String)
            _StartMile = value
        End Set
    End Property


    Public Property StartTime() As String
        Get
            Return _StartTime
        End Get
        Set(ByVal value As String)
            _StartTime = value
        End Set
    End Property


    Public Property StopMile() As String
        Get
            Return _StopMile
        End Get
        Set(ByVal value As String)
            _StopMile = value
        End Set
    End Property


    Public Property StopTime() As String
        Get
            Return _StopTime
        End Get
        Set(ByVal value As String)
            _StopTime = value
        End Set
    End Property


    Public Property FuelAmount() As Double
        Get
            Return _FuelAmount
        End Get
        Set(ByVal value As Double)
            _FuelAmount = value
        End Set
    End Property


    Public Property EstiMate() As Int32
        Get
            Return _EstiMate
        End Get
        Set(ByVal value As Int32)
            _EstiMate = value
        End Set
    End Property


    Public Property WorkCost() As Double
        Get
            Return _WorkCost
        End Get
        Set(ByVal value As Double)
            _WorkCost = value
        End Set
    End Property


    Public Property ReserveId() As String
        Get
            Return _ReserveId
        End Get
        Set(ByVal value As String)
            _ReserveId = value
        End Set
    End Property


    Public Property CarIdApprove() As Int32
        Get
            Return _CarIdApprove
        End Get
        Set(ByVal value As Int32)
            _CarIdApprove = value
        End Set
    End Property


    Public Property CarId() As Int32
        Get
            Return _CarId
        End Get
        Set(ByVal value As Int32)
            _CarId = value
        End Set
    End Property


    Public Property DriverCodeApprove() As String
        Get
            Return _DriverCodeApprove
        End Get
        Set(ByVal value As String)
            _DriverCodeApprove = value
        End Set
    End Property


    Public Property DriverCode() As String
        Get
            Return _DriverCode
        End Get
        Set(ByVal value As String)
            _DriverCode = value
        End Set
    End Property

#End Region
End Class

''' -----------------------------------------------------------------------------
''' Project	 : PTT.StationsTracking.Data
''' Class	 : StationsTracking.Data.QueryInvReserveDataCarDrivers
''' 
''' -----------------------------------------------------------------------------
''' <summary>
''' Collection of query result
''' </summary>
''' <remarks>
''' Sample
''' </remarks>
''' <history>
''' 	[NOK'S Generater]	7/4/2549 15:54:06	Created
''' </history>
''' -----------------------------------------------------------------------------
<Serializable()> _
Public Class QueryInvReserveDataCarDrivers
    Inherits CollectionBase


    Default Public ReadOnly Property Item(ByVal index As Integer) As QueryInvReserveDataCarDriver
        Get
            If (index < 0 Or index >= Me.InnerList.Count) Then
                Throw New Exception("index has to be between 0 and " & (Me.InnerList.Count - 1).ToString())
            Else
                Return CType(Me.InnerList(index), QueryInvReserveDataCarDriver)
            End If
        End Get
    End Property

    Public Sub Add(ByVal info As QueryInvReserveDataCarDriver)
        Me.InnerList.Add(info)
    End Sub

    Public Sub SetItem(ByVal index As Integer, ByVal value As QueryInvReserveDataCarDriver)
        If (index < 0 Or index >= Me.InnerList.Count) Then
            Throw New Exception("index has to be between 0 and " & (Me.InnerList.Count - 1).ToString())
        Else
            Me.InnerList(index) = value
        End If
    End Sub


End Class
